home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / background_19276.txt < prev    next >
Text File  |  1990-08-14  |  17KB  |  751 lines
  1. -- background: 19276 from stack: in
  2. -- bmap block id: 54798
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Report Cards
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   global checkLoc1,checkLoc2,checkLoc3,checkLoc4
  9.   global checkLoc5,checkLoc6,checkLoc7,checkLoc8,buttonNumber
  10.   installMenuBar 1120,1121,1122,1123,1124,1125,-204,-205
  11.   checkMenuItem 1123,2,true
  12.   if buttonNumber is empty then put 1 into buttonNumber
  13.   put 1 into checkLoc1
  14.   put 1 into checkLoc2
  15.   put 1 into checkLoc3
  16.   put 1 into checkLoc4
  17.   put 1 into checkLoc5
  18.   put 1 into checkLoc6
  19.   put 1 into checkLoc7
  20.   put 1 into checkLoc8
  21. end openBackground
  22.  
  23. on closeBackground
  24.   checkMenuItem 1123,2,false
  25.   repeat with index = 22 to 34
  26.     set icon of background button id index to "Md Unchecked Box"
  27.   end repeat
  28. end closeBackground
  29.  
  30. on doMenu menuItem
  31.   global buttonNumber
  32.   lock screen
  33.   if menuItem contains "About" then
  34.     resetCard
  35.     restoreMenuBar
  36.     go to card short name of this background of background "About"
  37.     unlock screen with zoom close
  38.   else if menuItem is "Home" then
  39.     resetCard
  40.     restoreMenuBar
  41.     go home
  42.   else if menuItem contains "Quit" then
  43.     resetCard
  44.     restoreMenuBar false
  45.     go to card "Mac School¬Æ Shell"
  46.     unlock screen with zoom close
  47.   else if menuItem is "Open" then
  48.     push card
  49.     get line buttonNumber of bg field "Student Name"
  50.     go to card it & " Classes" of this bg
  51.     put menuItem into it
  52.   else if (menuItem is "CSL Attendance") OR (menuItem is "CSL Marks") OR (menuItem is "Report Manager") then
  53.     resetCard
  54.     restoreMenuBar false
  55.     go to background menuItem
  56.     unlock screen with zoom open
  57.   else if menuItem is "Term Information‚Ķ" then
  58.     push card
  59.     get line buttonNumber of bg field "Student Name"
  60.     go to card it & " Term" of this background
  61.   else if menuItem is "Edit Historical Info‚Ķ" then
  62.     push card
  63.     get line buttonNumber of bg field "Student Name"
  64.     go to card it & " Hist" of this background
  65.   else if menuItem is "Honor Roll‚Ķ" then
  66.     push card
  67.     go to card "Students & Courses" of this background
  68.   else if menuItem is "By Class" then
  69.     resetCard
  70.     go to background "Report Cards Classes"
  71.   else if menuItem is "By Student" then
  72.   else if menuItem is "Sort Order‚Ķ" then
  73.     push card
  74.     go to card menuItem of this background
  75.   else if menuItem is "Custom Templates‚Ķ" then
  76.     push card
  77.     go to card menuItem of this background
  78.   end if
  79.   unlock screen
  80. end doMenu
  81.  
  82. on groupOne
  83.   global buttonNumber
  84.   if not hilite of target then
  85.     set hilite of background button buttonNumber to false
  86.     set hilite of target to true
  87.     put number of target into buttonNumber
  88.   else
  89.     lock screen
  90.     push card
  91.     get line buttonNumber of bg field "Student Name"
  92.     go to card it & " Classes" of this bg
  93.     unlock screen
  94.   end if
  95. end groupOne
  96.  
  97. on groupTwo shiftKey
  98.   if the shiftKey is down OR shiftKey is down then
  99.     if icon of target is "5065" then
  100.       repeat with index = 22 to 34
  101.         set icon of background button id index to "Md Unchecked Box"
  102.       end repeat
  103.     else
  104.       repeat with index = 22 to 34
  105.         set icon of background button id index to "Md Checked Box"
  106.       end repeat
  107.     end if
  108.   else
  109.     if icon of target is "5065" then
  110.       set icon of target to "Md Unchecked Box"
  111.     else set icon of target to "Md Checked Box"
  112.   end if
  113. end groupTwo
  114.  
  115. on resetCard
  116.   global buttonNumber
  117.   if buttonNumber is not 1 then
  118.     set hilite of background button buttonNumber to false
  119.     set hilite of background button 1 to true
  120.     put 1 into buttonNumber
  121.   end if
  122. end resetCard
  123.  
  124. on editText
  125.   repeat with index = 9 to 21
  126.     set visible of background button id index to not visible of background button id index
  127.   end repeat
  128.   repeat with index = 1 to 8
  129.     set lockText of background field id index to not lockText of background field id index
  130.   end repeat
  131. end editText
  132.  
  133. on newCard
  134.   moveTextFirst
  135. end newCard
  136.  
  137. on moveTextFirst
  138.   --exit moveTextFirst
  139.   put bg field "Student Number" of first card of this bg into bg field "Student Number" of this card
  140.   put bg field "Student #" of first card of this bg into bg field "Student #" of this card
  141.   put bg field "Student Name" of first card of this bg into bg field "Student Name" of this card
  142.   put bg field "Homeroom" of first card of this bg into bg field "Homeroom" of this card
  143.   put bg field "Grade" of first card of this bg into bg field "Grade" of this card
  144.   put bg field "Class Rank" of first card of this bg into bg field "Class Rank" of this card
  145.   put bg field "Result" of first card of this bg into bg field "Result" of this card
  146. end moveTextFirst
  147.  
  148. on moveTextLast
  149.   --exit moveTextLast
  150.   put bg field "Student Number" of this card into bg field "Student Number" of last card of this bg
  151.   put bg field "Student #" of this card into bg field "Student #" of last card of this bg
  152.   put bg field "Student Name" of this card into bg field "Student Name" of last card of this bg
  153.   put bg field "Homeroom" of this card into bg field "Homeroom" of last card of this bg
  154.   put bg field "Grade" of this card into bg field "Grade" of last card of this bg
  155.   put bg field "Class Rank" of this card into bg field "Class Rank" of last card of this bg
  156.   put bg field "Result" of this card into bg field "Result" of last card of this bg
  157. end moveTextLast
  158.  
  159.  
  160. -- part 1 (field)
  161. -- low flags: 01
  162. -- high flags: 0000
  163. -- rect: left=9 top=44 right=59 bottom=90
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 0
  167. -- font id: 3
  168. -- text size: 10
  169. -- style flags: 0
  170. -- line height: 13
  171. -- part name: Student Number
  172.  
  173.  
  174. -- part 2 (field)
  175. -- low flags: 01
  176. -- high flags: 0000
  177. -- rect: left=399 top=44 right=59 bottom=504
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 0
  181. -- font id: 3
  182. -- text size: 10
  183. -- style flags: 0
  184. -- line height: 13
  185. -- part name: Date
  186.  
  187.  
  188. -- part 3 (field)
  189. -- low flags: 01
  190. -- high flags: 0000
  191. -- rect: left=8 top=97 right=332 bottom=116
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 0
  195. -- font id: 3
  196. -- text size: 10
  197. -- style flags: 0
  198. -- line height: 18
  199. -- part name: Student #
  200.  
  201.  
  202. -- part 4 (field)
  203. -- low flags: 01
  204. -- high flags: 0000
  205. -- rect: left=126 top=97 right=332 bottom=296
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 0 / 0
  208. -- text alignment: 0
  209. -- font id: 3
  210. -- text size: 10
  211. -- style flags: 0
  212. -- line height: 18
  213. -- part name: Student Name
  214.  
  215.  
  216. -- part 5 (field)
  217. -- low flags: 01
  218. -- high flags: 0000
  219. -- rect: left=297 top=97 right=332 bottom=350
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 0 / 0
  222. -- text alignment: 65535
  223. -- font id: 3
  224. -- text size: 10
  225. -- style flags: 0
  226. -- line height: 18
  227. -- part name: Homeroom
  228.  
  229.  
  230. -- part 6 (field)
  231. -- low flags: 01
  232. -- high flags: 0000
  233. -- rect: left=351 top=97 right=332 bottom=386
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 65535
  237. -- font id: 3
  238. -- text size: 10
  239. -- style flags: 0
  240. -- line height: 18
  241. -- part name: Grade
  242.  
  243.  
  244. -- part 7 (field)
  245. -- low flags: 01
  246. -- high flags: 0000
  247. -- rect: left=386 top=97 right=332 bottom=441
  248. -- title width / last selected line: 0
  249. -- icon id / first selected line: 0 / 0
  250. -- text alignment: 0
  251. -- font id: 3
  252. -- text size: 10
  253. -- style flags: 0
  254. -- line height: 18
  255. -- part name: Class Rank
  256.  
  257.  
  258. -- part 8 (field)
  259. -- low flags: 01
  260. -- high flags: 0000
  261. -- rect: left=442 top=97 right=332 bottom=468
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 0 / 0
  264. -- text alignment: 65535
  265. -- font id: 3
  266. -- text size: 10
  267. -- style flags: 0
  268. -- line height: 18
  269. -- part name: Result
  270.  
  271.  
  272. -- part 9 (button)
  273. -- low flags: 00
  274. -- high flags: 4000
  275. -- rect: left=8 top=98 right=115 bottom=468
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 0 / 0
  278. -- text alignment: 1
  279. -- font id: 0
  280. -- text size: 12
  281. -- style flags: 0
  282. -- line height: 16
  283. -- part name: 
  284. ----- HyperTalk script -----
  285. on mouseUp
  286.   groupOne
  287. end mouseUp
  288.  
  289.  
  290.  
  291. -- part 10 (button)
  292. -- low flags: 00
  293. -- high flags: 0000
  294. -- rect: left=8 top=116 right=133 bottom=468
  295. -- title width / last selected line: 0
  296. -- icon id / first selected line: 0 / 0
  297. -- text alignment: 1
  298. -- font id: 0
  299. -- text size: 12
  300. -- style flags: 0
  301. -- line height: 16
  302. -- part name: 
  303. ----- HyperTalk script -----
  304. on mouseUp
  305.   groupOne
  306. end mouseUp
  307.  
  308.  
  309.  
  310. -- part 11 (button)
  311. -- low flags: 00
  312. -- high flags: 0000
  313. -- rect: left=8 top=134 right=151 bottom=468
  314. -- title width / last selected line: 0
  315. -- icon id / first selected line: 0 / 0
  316. -- text alignment: 1
  317. -- font id: 0
  318. -- text size: 12
  319. -- style flags: 0
  320. -- line height: 16
  321. -- part name: 
  322. ----- HyperTalk script -----
  323. on mouseUp
  324.   groupOne
  325. end mouseUp
  326.  
  327.  
  328.  
  329. -- part 12 (button)
  330. -- low flags: 00
  331. -- high flags: 0000
  332. -- rect: left=8 top=152 right=169 bottom=468
  333. -- title width / last selected line: 0
  334. -- icon id / first selected line: 0 / 0
  335. -- text alignment: 1
  336. -- font id: 0
  337. -- text size: 12
  338. -- style flags: 0
  339. -- line height: 16
  340. -- part name: 
  341. ----- HyperTalk script -----
  342. on mouseUp
  343.   groupOne
  344. end mouseUp
  345.  
  346.  
  347.  
  348. -- part 13 (button)
  349. -- low flags: 00
  350. -- high flags: 0000
  351. -- rect: left=8 top=170 right=187 bottom=468
  352. -- title width / last selected line: 0
  353. -- icon id / first selected line: 0 / 0
  354. -- text alignment: 1
  355. -- font id: 0
  356. -- text size: 12
  357. -- style flags: 0
  358. -- line height: 16
  359. -- part name: 
  360. ----- HyperTalk script -----
  361. on mouseUp
  362.   groupOne
  363. end mouseUp
  364.  
  365.  
  366.  
  367. -- part 14 (button)
  368. -- low flags: 00
  369. -- high flags: 0000
  370. -- rect: left=8 top=188 right=205 bottom=468
  371. -- title width / last selected line: 0
  372. -- icon id / first selected line: 0 / 0
  373. -- text alignment: 1
  374. -- font id: 0
  375. -- text size: 12
  376. -- style flags: 0
  377. -- line height: 16
  378. -- part name: 
  379. ----- HyperTalk script -----
  380. on mouseUp
  381.   groupOne
  382. end mouseUp
  383.  
  384.  
  385.  
  386. -- part 15 (button)
  387. -- low flags: 00
  388. -- high flags: 0000
  389. -- rect: left=8 top=206 right=223 bottom=468
  390. -- title width / last selected line: 0
  391. -- icon id / first selected line: 0 / 0
  392. -- text alignment: 1
  393. -- font id: 0
  394. -- text size: 12
  395. -- style flags: 0
  396. -- line height: 16
  397. -- part name: 
  398. ----- HyperTalk script -----
  399. on mouseUp
  400.   groupOne
  401. end mouseUp
  402.  
  403.  
  404.  
  405. -- part 16 (button)
  406. -- low flags: 00
  407. -- high flags: 0000
  408. -- rect: left=8 top=224 right=241 bottom=468
  409. -- title width / last selected line: 0
  410. -- icon id / first selected line: 0 / 0
  411. -- text alignment: 1
  412. -- font id: 0
  413. -- text size: 12
  414. -- style flags: 0
  415. -- line height: 16
  416. -- part name: 
  417. ----- HyperTalk script -----
  418. on mouseUp
  419.   groupOne
  420. end mouseUp
  421.  
  422.  
  423.  
  424. -- part 17 (button)
  425. -- low flags: 00
  426. -- high flags: 0000
  427. -- rect: left=8 top=242 right=259 bottom=468
  428. -- title width / last selected line: 0
  429. -- icon id / first selected line: 0 / 0
  430. -- text alignment: 1
  431. -- font id: 0
  432. -- text size: 12
  433. -- style flags: 0
  434. -- line height: 16
  435. -- part name: 
  436. ----- HyperTalk script -----
  437. on mouseUp
  438.   groupOne
  439. end mouseUp
  440.  
  441.  
  442.  
  443. -- part 18 (button)
  444. -- low flags: 00
  445. -- high flags: 0000
  446. -- rect: left=8 top=260 right=277 bottom=468
  447. -- title width / last selected line: 0
  448. -- icon id / first selected line: 0 / 0
  449. -- text alignment: 1
  450. -- font id: 0
  451. -- text size: 12
  452. -- style flags: 0
  453. -- line height: 16
  454. -- part name: 
  455. ----- HyperTalk script -----
  456. on mouseUp
  457.   groupOne
  458. end mouseUp
  459.  
  460.  
  461.  
  462. -- part 19 (button)
  463. -- low flags: 00
  464. -- high flags: 0000
  465. -- rect: left=8 top=278 right=295 bottom=468
  466. -- title width / last selected line: 0
  467. -- icon id / first selected line: 0 / 0
  468. -- text alignment: 1
  469. -- font id: 0
  470. -- text size: 12
  471. -- style flags: 0
  472. -- line height: 16
  473. -- part name: 
  474. ----- HyperTalk script -----
  475. on mouseUp
  476.   groupOne
  477. end mouseUp
  478.  
  479.  
  480.  
  481. -- part 20 (button)
  482. -- low flags: 00
  483. -- high flags: 0000
  484. -- rect: left=8 top=296 right=313 bottom=468
  485. -- title width / last selected line: 0
  486. -- icon id / first selected line: 0 / 0
  487. -- text alignment: 1
  488. -- font id: 0
  489. -- text size: 12
  490. -- style flags: 0
  491. -- line height: 16
  492. -- part name: 
  493. ----- HyperTalk script -----
  494. on mouseUp
  495.   groupOne
  496. end mouseUp
  497.  
  498.  
  499.  
  500. -- part 21 (button)
  501. -- low flags: 00
  502. -- high flags: 0000
  503. -- rect: left=8 top=314 right=331 bottom=468
  504. -- title width / last selected line: 0
  505. -- icon id / first selected line: 0 / 0
  506. -- text alignment: 1
  507. -- font id: 0
  508. -- text size: 12
  509. -- style flags: 0
  510. -- line height: 16
  511. -- part name: 
  512. ----- HyperTalk script -----
  513. on mouseUp
  514.   groupOne
  515. end mouseUp
  516.  
  517.  
  518.  
  519. -- part 22 (button)
  520. -- low flags: 00
  521. -- high flags: 0000
  522. -- rect: left=472 top=99 right=113 bottom=486
  523. -- title width / last selected line: 0
  524. -- icon id / first selected line: 5064 / 5064
  525. -- text alignment: 1
  526. -- font id: 3
  527. -- text size: 10
  528. -- style flags: 0
  529. -- line height: 13
  530. -- part name: 
  531. ----- HyperTalk script -----
  532. on mouseUp shiftKey
  533.   groupTwo shiftKey
  534. end mouseUp
  535.  
  536.  
  537. -- part 23 (button)
  538. -- low flags: 00
  539. -- high flags: 0000
  540. -- rect: left=472 top=117 right=131 bottom=486
  541. -- title width / last selected line: 0
  542. -- icon id / first selected line: 5064 / 5064
  543. -- text alignment: 1
  544. -- font id: 3
  545. -- text size: 10
  546. -- style flags: 0
  547. -- line height: 13
  548. -- part name: 
  549. ----- HyperTalk script -----
  550. on mouseUp shiftKey
  551.   groupTwo shiftKey
  552. end mouseUp
  553.  
  554.  
  555. -- part 24 (button)
  556. -- low flags: 00
  557. -- high flags: 0000
  558. -- rect: left=472 top=135 right=149 bottom=486
  559. -- title width / last selected line: 0
  560. -- icon id / first selected line: 5064 / 5064
  561. -- text alignment: 1
  562. -- font id: 3
  563. -- text size: 10
  564. -- style flags: 0
  565. -- line height: 13
  566. -- part name: 
  567. ----- HyperTalk script -----
  568. on mouseUp shiftKey
  569.   groupTwo shiftKey
  570. end mouseUp
  571.  
  572.  
  573. -- part 25 (button)
  574. -- low flags: 00
  575. -- high flags: 0000
  576. -- rect: left=472 top=153 right=167 bottom=486
  577. -- title width / last selected line: 0
  578. -- icon id / first selected line: 5064 / 5064
  579. -- text alignment: 1
  580. -- font id: 3
  581. -- text size: 10
  582. -- style flags: 0
  583. -- line height: 13
  584. -- part name: 
  585. ----- HyperTalk script -----
  586. on mouseUp shiftKey
  587.   groupTwo shiftKey
  588. end mouseUp
  589.  
  590.  
  591. -- part 26 (button)
  592. -- low flags: 00
  593. -- high flags: 0000
  594. -- rect: left=472 top=171 right=185 bottom=486
  595. -- title width / last selected line: 0
  596. -- icon id / first selected line: 5064 / 5064
  597. -- text alignment: 1
  598. -- font id: 3
  599. -- text size: 10
  600. -- style flags: 0
  601. -- line height: 13
  602. -- part name: 
  603. ----- HyperTalk script -----
  604. on mouseUp shiftKey
  605.   groupTwo shiftKey
  606. end mouseUp
  607.  
  608.  
  609. -- part 27 (button)
  610. -- low flags: 00
  611. -- high flags: 0000
  612. -- rect: left=472 top=189 right=203 bottom=486
  613. -- title width / last selected line: 0
  614. -- icon id / first selected line: 5064 / 5064
  615. -- text alignment: 1
  616. -- font id: 3
  617. -- text size: 10
  618. -- style flags: 0
  619. -- line height: 13
  620. -- part name: 
  621. ----- HyperTalk script -----
  622. on mouseUp shiftKey
  623.   groupTwo shiftKey
  624. end mouseUp
  625.  
  626.  
  627. -- part 28 (button)
  628. -- low flags: 00
  629. -- high flags: 0000
  630. -- rect: left=472 top=207 right=221 bottom=486
  631. -- title width / last selected line: 0
  632. -- icon id / first selected line: 5064 / 5064
  633. -- text alignment: 1
  634. -- font id: 3
  635. -- text size: 10
  636. -- style flags: 0
  637. -- line height: 13
  638. -- part name: 
  639. ----- HyperTalk script -----
  640. on mouseUp shiftKey
  641.   groupTwo shiftKey
  642. end mouseUp
  643.  
  644.  
  645. -- part 29 (button)
  646. -- low flags: 00
  647. -- high flags: 0000
  648. -- rect: left=472 top=225 right=239 bottom=486
  649. -- title width / last selected line: 0
  650. -- icon id / first selected line: 5064 / 5064
  651. -- text alignment: 1
  652. -- font id: 3
  653. -- text size: 10
  654. -- style flags: 0
  655. -- line height: 13
  656. -- part name: 
  657. ----- HyperTalk script -----
  658. on mouseUp shiftKey
  659.   groupTwo shiftKey
  660. end mouseUp
  661.  
  662.  
  663. -- part 30 (button)
  664. -- low flags: 00
  665. -- high flags: 0000
  666. -- rect: left=472 top=243 right=257 bottom=486
  667. -- title width / last selected line: 0
  668. -- icon id / first selected line: 5064 / 5064
  669. -- text alignment: 1
  670. -- font id: 3
  671. -- text size: 10
  672. -- style flags: 0
  673. -- line height: 13
  674. -- part name: 
  675. ----- HyperTalk script -----
  676. on mouseUp shiftKey
  677.   groupTwo shiftKey
  678. end mouseUp
  679.  
  680.  
  681. -- part 31 (button)
  682. -- low flags: 00
  683. -- high flags: 0000
  684. -- rect: left=472 top=261 right=275 bottom=486
  685. -- title width / last selected line: 0
  686. -- icon id / first selected line: 5064 / 5064
  687. -- text alignment: 1
  688. -- font id: 3
  689. -- text size: 10
  690. -- style flags: 0
  691. -- line height: 13
  692. -- part name: 
  693. ----- HyperTalk script -----
  694. on mouseUp shiftKey
  695.   groupTwo shiftKey
  696. end mouseUp
  697.  
  698.  
  699. -- part 32 (button)
  700. -- low flags: 00
  701. -- high flags: 0000
  702. -- rect: left=472 top=279 right=293 bottom=486
  703. -- title width / last selected line: 0
  704. -- icon id / first selected line: 5064 / 5064
  705. -- text alignment: 1
  706. -- font id: 3
  707. -- text size: 10
  708. -- style flags: 0
  709. -- line height: 13
  710. -- part name: 
  711. ----- HyperTalk script -----
  712. on mouseUp shiftKey
  713.   groupTwo shiftKey
  714. end mouseUp
  715.  
  716.  
  717. -- part 33 (button)
  718. -- low flags: 00
  719. -- high flags: 0000
  720. -- rect: left=472 top=297 right=311 bottom=486
  721. -- title width / last selected line: 0
  722. -- icon id / first selected line: 5064 / 5064
  723. -- text alignment: 1
  724. -- font id: 3
  725. -- text size: 10
  726. -- style flags: 0
  727. -- line height: 13
  728. -- part name: 
  729. ----- HyperTalk script -----
  730. on mouseUp shiftKey
  731.   groupTwo shiftKey
  732. end mouseUp
  733.  
  734.  
  735. -- part 34 (button)
  736. -- low flags: 00
  737. -- high flags: 0000
  738. -- rect: left=472 top=315 right=329 bottom=486
  739. -- title width / last selected line: 0
  740. -- icon id / first selected line: 5064 / 5064
  741. -- text alignment: 1
  742. -- font id: 3
  743. -- text size: 10
  744. -- style flags: 0
  745. -- line height: 13
  746. -- part name: 
  747. ----- HyperTalk script -----
  748. on mouseUp shiftKey
  749.   groupTwo shiftKey
  750. end mouseUp
  751.